home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / time / time_81-90 / time_82 / code / code.asm < prev    next >
Encoding:
Assembly Source File  |  1993-11-04  |  3.0 KB  |  191 lines
  1. ;:ts=8
  2.     xdef    _open_libs
  3. _open_libs:
  4.     link    a5,#.2
  5.     movem.l    .3,-(sp)
  6.     clr.l    -(sp)
  7.     pea    .1+0
  8.     jsr    _OpenLibrary
  9.     add.w    #8,sp
  10.     move.l    d0,_IntuitionBase
  11.     tst.l    _IntuitionBase
  12.     bne    .10001
  13.     clr.l    -(sp)
  14.     jsr    _Exit
  15.     add.w    #4,sp
  16. .10001
  17.     clr.l    -(sp)
  18.     pea    .1+18
  19.     jsr    _OpenLibrary
  20.     add.w    #8,sp
  21.     move.l    d0,_GfxBase
  22.     tst.l    _GfxBase
  23.     bne    .10002
  24.     move.l    _IntuitionBase,-(sp)
  25.     jsr    _CloseLibrary
  26.     add.w    #4,sp
  27.     clr.l    -(sp)
  28.     jsr    _Exit
  29.     add.w    #4,sp
  30. .10002
  31. .4
  32.     movem.l    (sp)+,.3
  33.     unlk    a5
  34.     rts
  35. .2    equ    0
  36. .3    reg    
  37. .1
  38.     dc.b    105,110,116,117,105,116,105,111,110,46,108,105,98,114,97
  39.     dc.b    114,121,0,103,114,97,112,104,105,99,115,46,108,105,98
  40.     dc.b    114,97,114,121,0
  41.     ds    0
  42.     xdef    _open_window
  43. _open_window:
  44.     link    a5,#.6
  45.     movem.l    .7,-(sp)
  46.     move.w    8(a5),-48(a5)
  47.     move.w    10(a5),-46(a5)
  48.     move.w    12(a5),-44(a5)
  49.     move.w    14(a5),-42(a5)
  50.     move.b    #-1,-40(a5)
  51.     move.b    #-1,-39(a5)
  52.     move.l    16(a5),-22(a5)
  53.     move.l    20(a5),-34(a5)
  54.     move.l    24(a5),-38(a5)
  55.     clr.l    -18(a5)
  56.     move.w    #1,-2(a5)
  57.     move.l    28(a5),-30(a5)
  58.     clr.l    -26(a5)
  59.     clr.l    -14(a5)
  60.     move.w    #-1,-10(a5)
  61.     move.w    #-1,-8(a5)
  62.     move.w    #-1,-6(a5)
  63.     move.w    #-1,-4(a5)
  64.     pea    -48(a5)
  65.     jsr    _OpenWindow
  66.     add.w    #4,sp
  67. .8
  68.     movem.l    (sp)+,.7
  69.     unlk    a5
  70.     rts
  71. .6    equ    -48
  72. .7    reg    
  73.     xdef    _close_all
  74. _close_all:
  75.     link    a5,#.9
  76.     movem.l    .10,-(sp)
  77.     move.l    _Window,-(sp)
  78.     jsr    _CloseWindow
  79.     add.w    #4,sp
  80.     move.l    _GfxBase,-(sp)
  81.     jsr    _CloseLibrary
  82.     add.w    #4,sp
  83.     move.l    _IntuitionBase,-(sp)
  84.     jsr    _CloseLibrary
  85.     add.w    #4,sp
  86.     pea    1
  87.     jsr    _Exit
  88.     add.w    #4,sp
  89. .11
  90.     movem.l    (sp)+,.10
  91.     unlk    a5
  92.     rts
  93. .9    equ    0
  94. .10    reg    
  95.     xdef    _main
  96. _main:
  97.     link    a5,#.12
  98.     movem.l    .13,-(sp)
  99.     jsr    _open_libs
  100.     bra    .10003
  101. .10004
  102.     clr.l    -(sp)
  103.     clr.l    -(sp)
  104.     pea    2048
  105.     clr.l    -(sp)
  106.     move.w    #256,-(sp)
  107.     move.w    #640,-(sp)
  108.     clr.w    -(sp)
  109.     clr.w    -(sp)
  110.     jsr    _open_window
  111.     lea    24(sp),sp
  112.     move.l    d0,_Window
  113.     tst.l    _Window
  114.     bne    .10005
  115.     clr.l    -(sp)
  116.     jsr    _exit
  117.     add.w    #4,sp
  118. .10005
  119.     pea    70
  120.     pea    .5+0
  121.     pea    -2147483648
  122.     jsr    _DisplayAlert
  123.     lea    12(sp),sp
  124.     move $0,34
  125. .10003
  126.     pea    .5+109
  127.     jsr    _puts
  128.     add.w    #4,sp
  129.     pea    .5+111
  130.     jsr    _puts
  131.     add.w    #4,sp
  132.     pea    .5+113
  133.     jsr    _puts
  134.     add.w    #4,sp
  135.     pea    .5+143
  136.     jsr    _puts
  137.     add.w    #4,sp
  138.     pea    .5+145
  139.     jsr    _puts
  140.     add.w    #4,sp
  141.     pea    .5+147
  142.     jsr    _puts
  143.     add.w    #4,sp
  144.     pea    -60(a5)
  145.     jsr    _gets
  146.     add.w    #4,sp
  147. .10006
  148.     pea    .5+157
  149.     pea    -60(a5)
  150.     jsr    _strcmp
  151.     add.w    #8,sp
  152.     tst.l    d0
  153.     beq    .10007
  154.     bra    .10004
  155. .10007
  156. .14
  157.     movem.l    (sp)+,.13
  158.     unlk    a5
  159.     rts
  160. .12    equ    -60
  161. .13    reg    
  162. .5
  163.     dc.b    3,0,37,32,32,32,32,32,32,32,32,87,114,111,110
  164.     dc.b    103,32,80,97,115,115,119,111,114,100,32,33,32,32,32
  165.     dc.b    82,97,116,32,33,33,33,32,0,99,0,0,61,32,32
  166.     dc.b    80,114,101,115,115,32,77,111,117,115,101,98,117,116,116
  167.     dc.b    111,110,32,33,32,0,99,1,0,61,32,32,32,32,32
  168.     dc.b    32,32,32,32,32,32,32,32,32,32,32,32,71,85,82
  169.     dc.b    85,45,69,100,100,105,101,32,33,32,72,-28,104,-28,32
  170.     dc.b    33,0,0,0,32,0,32,0,80,65,83,83,87,79,82
  171.     dc.b    68,45,67,72,69,67,75,32,66,89,32,69,46,32,68
  172.     dc.b    85,77,70,65,72,82,84,0,32,0,32,0,80,97,115
  173.     dc.b    115,87,111,114,100,58,0,69,100,33,0
  174.     ds    0
  175.     xref    _strcmp
  176.     xref    _gets
  177.     xref    _puts
  178.     xref    _DisplayAlert
  179.     xref    _exit
  180.     xref    _CloseWindow
  181.     xref    _OpenWindow
  182.     xref    _CloseLibrary
  183.     xref    _Exit
  184.     xref    _OpenLibrary
  185.     xref    .begin
  186.     dseg
  187.     global    _Window,4
  188.     global    _GfxBase,4
  189.     global    _IntuitionBase,4
  190.     end
  191.